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CCCCCCCC OHH HH MM MM SSSSSSSS AAAAAA VV VV PPPPPPPP 000000 SSSSSSSS 
CCCCCCCC =H HK MM MM SSSSSSSS AAAAAA VV VV PPPPPPPP 000000 SSSSSSSS 

cc HH HH MMMM MMMM SS A AA VV VV PP PP 00 00 SS 

cc HH HH MMMM MMMM SS AA AA VV VV PP PP 00 oo SS 

cc HH HH MM MM SS AL AA VV VV PP PP 00 00 SS 

cc HH HH MM MM MM «SS AA AA VV VV PP PP 00 oo SS 

cc HHHHHHHHHH «MM MM SSSSSS Ab AA VV VV PPPPPPPP 00 00 SSSSSS 

cc HHHHHHHHHH =MM MM SSSSSS ah AA VV VV PPPPPPPP 00 00 SSSSSS 

cc HH HH MM MM SS AAAAAAAAAA VV VV PP 00 00 SS 

cc HH HH MM MM SS AAAAAAAAAA VV VV PP 00 00 SS 

cc HH HH MM MM SS AA as VV VV PP 00 00 SS eeee 

cc HH HH MM MM SS AA Aa vv PP 00 00 SS eee 
CCCCCCCC =H HH MM MM SSSSSSSS AA aa VV PP 000000 SSSSSSSS cece 
CCCCCCCC =H HH MM MM SSSSSSSS aa aa VV PP 000000 SSSSSSSS ceee 
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EDTSCHMSAVPOS = save the current buffer positio 16-Sep-1984 :09:5 AX-11 Bliss-32 V4.0-74 Page 
, 12-828213 4 99:93:23 YET SREICHASAGPOS BLT; ns 

1 ZTITLE “EDTSCHMSAVPOS = save the current buffer position’ 

§ MODULE EDTSCHMSAVPOS ( ' Save the current buffer gore ten 
we = 'v04-000' ! File: CHMSAVPOS.BLI Edit: JB8S1003 

= 
5 BEGIN 
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008 Hd 
9 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
010 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
011 7 ALL RIGHTS RESERVED. 
8 g is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
014 :* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


® 

& 

® 

* 

® 

® 

i A E * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
' * 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
® 

® 

® 

® 

te 

® 

ie 
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t* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
tt CORPORATION. 


't DIGITAL ASSUMES NO RESPONS 
'® SOFTWARE ON EQUIPMENT WHIC 
it 
i geeeeeeeeeeeereeeeeeeeeeeeeeeeeeeeteeteeeeeeeeeeeeeeeeeneeeeeeneeeeeeeerene 
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IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 
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tee 
FACILITY: EDT == The DEC Standard Editor 
i ABSTRACT: 
i This module saves the current buffer position in a 
$ : position block. 
33 44 ENVIRONMENT: Runs at any access mode - AST reentrant 
41 9041 AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
4 004 i MODIFIED BY: 
44 Boe . 
45 5 ! 1-001 = Original. DJS 04-Feb-1981. This module was created b 
46 Bose : extracting the routine EDTS$SAV_BUFPOS from module CHANGE.BLI. 
47 004 ! 1-002 = Regularize headers. JBS 03-Mar-1981 
r+ gee : 1-005 - Improve the appearance of the Listing. JBS 13-Jun-1983 
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3 save the current buffer positio if Sep-1984 90:03:33 AX-11 Piiss 32 v4.0 742 
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EDT. SRCICHMSAVPOS .SLI;7% 
SSBTTL ‘Declarations’ 


TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSSAV_BUFPOS : NOVALUE; ! Save the current buffer position 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 


i MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

! OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
In the routine 
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cays HMSAVPOS EDTSCHMSAVPOS = save the current buffer positi 19-300" 198% 90 03:28 AX-11 Bliss-32 V4.0-74 Page 3 

Vv EDTSSSAV_BUFPOS = save the current buffer posi 14-Sep-1984 12:22:4 EDT. SRCJICHMSAVPOS.BLI; (3) 

; 5 } ZSBTTL "EDTSSSAV_BUFPOS = save the current buffer position’ : 
; ey 6 7 1 GLOBAL ROUTINE EDTSSSAV_BUFPOS ( ' Save sig gurrent buffer position ‘ 
: 8 6 3 1 P ! the position block in which to save : 
>; 689 1 ) : NOVALUE = ; 
; 90 660 1 ; 
:.. 661 1 !+4¢ ; 
; 666 : FUNCTIONAL DESCRIPTION: | : 
; 4 Oe : This routine saves the current buffer position in a position block. | : 
6 . | ° 
: 9 6 1 ! FORMAL PARAMETERS: $ 
; 35 O36? 1! : 
; 3 068 1! POs The position block in which the current buffer position 3 
; 669 1! is to be saved : 
; 100 670 1! 3 
; 101 671 1 =! IMPLICIT INPUTS: ; 
3 4 93h 1! r 
3; 10 0675 1! EDTSSA_CUR_BUF | : 
> 104 bere 1! EDTS$T_LN_6UF : 
; 6105 675 1! EDTSSA_LN_PTR 3 
: 106 BO78 1! 3 
s 107 067 1 ! IMPLICIT OUTPUTS: : 
; 108 0678 1! 3 
; 109 0679 1! NONE 3 
: 110 0680 1! 3 
. Fi 0681 1 ! ROUTINE VALUE: ; 
3 BE 0682 1! 3 
. 3 0683 1! NONE 3 
: 114 0684 1! 3 
s 195 0685 1 ! SIDE EFFECTS: é 
; 116 06 1! 3 
3; 117 0687 1! NONE 3 
; «118 0688 1! F 
: 119 0689 1 !-- 3 
; 120 0690 1 3 
s 121 0691 BEGIN 3 
; \$¢ 069 3 
s Ye 069 EXTERNAL ROUTINE 3 
; iss st EDTSSRPL_CHGDLN; ! Declare current Line as changed 3 
: 126 069 EXTERNAL : 
3s Yer 069 EDTSSA_CUR_BUF : REF TBCB_BLOCK, ! The current buffer tbcb : 
: 128 boas EDTSST_LN_BUF, ! Current Line buffer : 
; : 9 344 EDTSSA_LN_PTR; ! Current character pointer : 
: 13 oF 1 MAP é 
. 3 § a4 POS : REF POS_BLOCK; $ 
© 20° 3 
2 § 7 '¢ : 
; : 5 Ag : Update the current Line if necessary. : 
3 137 70¢ EDTSSRPL_CHGDLN (); g 
: 138 708 EDTSSCPY-MEM (POS SIZE, .EDTS$A_CUR BUF, .POS); : 
3; «4139 709 POS CPOS-CHAR_POS] = CHSDIFF (.EDTSSA_LN_PTR, CHSPTR (EDT$$T_LN_BUF)); 3 
+ 140 0710 END; f of routine EDTS$SAV_BUFPOS : 


EDTSCHMSAVPOS 
v04-000 


007 
000000006 00 88 
30 satan * 7 


4 
0 
0 
0 
66 
Q 000000006 3 
OC A6 000000006 00 4 
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; Routine Size: 41 bytes, Routine Base: _EDTSCODE + 0000 
141 0711 #1 
142 0712 1 !<BLF/PAGE> 
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EDTSSSAV_BUFPOS = save the current buffer posi 14-Sep- 


- TITLE 
- IDENT 
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EDT.SRCJCHMSAVPOS .BLI; 1 (3) 


EDTSCHMSAVPOS EDTSCHMSAVPOS =- save the current 
buffer positio 
\v04-000\ 


EDTSSRPL_CHGDLN 
EDTS$A_COR_BUF, EDTS$$T_LN_BUF 
EDTSSA_LN_PTR 


LEDTSCODE,NOWRT, SHR, PIC,2 


EDISS$SAV_BUFPOS, Save R2,R3,R4,R5,R6 
#0 EDTSSRPL CHGDLN 

ets A CUR_BOF, R 

(RO), (R6) 


EDT$$T_LN BUF, RO 
RO, EDTSSK_LN PIR, 12(R6) 


Lines/CPU Min: 4544 
Lonenee/\PU-siia 12794 

Y Used: 61 pages 
oan ation Complete 
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EDTSCHMSAVPOS EDTSCHMSAVPOS = save the current buffer positio 16-Sep =138¢ 90: 93:2 AX-11 Bliss-32 V4.0-742 Page 5) 
v04-000 EDTSSSAV_BUFPOS = save the current buffer posi 14-Sep-1984 EDT. SRCICHMSAVPOS .BLI;1 (4) | 
| 
: 1446 713° 1 END ! of module EDTSCHMSAVPOS 3 
: 145 714«1 Ps 
> «(146 715 0 ELUDOM | : 
3 
; PSECT SUMMARY | : 
: Name Bytes Attributes 3 
: _EDTSCODE 41 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 3 
: Library Statistics 3 
a oe os ret ee i oe Symbols -------- Pages Processing ; 
: File Total Loaded Percent Mapped Time . 
: -$255$DUA28: CEDT.SRCJEDT.L32;1 377 33 8 40 00:00.2 F 
; _~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 | : 
é 
; COMMAND QUALIFIERS : 
; See reser ene’ SELB, SNS TEAL -GPTERLEE )AUDTRACEOACEAL S94. [SB 1CHRSAYPOS/ER 008.18: CUNEAYPOS MSRC$: CHMSAVPOS .BLI/UPDATE=(ENHS:C : 
Size: 41 code + 0 data bytes F 
Run Time: 0:09.4 3 
Elapsed Time: Og ; 
é 
. 
. 
| : 
| 
° 
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